Star Trek Starfleet Academy Mini Omnipedia/MINI_OMNI.ISO/pc/omni_v2.dxr/00370_general control.ls

Text File | 1996-04-15 | 20.1 KB | 584 lines

global gAlphaState, gAlphBase, gAssetPath, gColorXobj, gComputerTypeK, gdescfield, gdescfieldscriptcast, gdescfieldspr, gEncSprite, gEntrySprite, gEpisBase, gEpisFTchunksizeK, gFindBase, gFirstYearK, gFlashPixel, gGlobalStepCount, gHeaderHere, gHltPixel, gHoldEncPixelSprite, gHoldEntPixelSprite, gHotLinkList, gImInHelp, gInputFieldSpr, gLastYearK, glinktostagemsg, gMacColorIsHere, gMemoryAlertFlag, gModeBase, gModeHighltSprite, gModeNameLU, gModeState, gNewSetIsHereF, gNextBase, gOurFontK, gPDL, gPrepareSND, gPrevActiveColor, gPrevInactiveColor, gPullDownModes, gPullDownSearch, gScrollIncrK, gscrtxtspr1, gSearchButton, gSearchPopOut, gSpeeButtSpr, gSpeechCapable, gStageToLinkMsg, gStardateLU, gStardLUlistSize, gStashedHitsList, gStashedSEEList, gStatusField, gStatusWordList, gStretchSpr1, gStretchSpr2, gStylingNeedF, gSysStatusWordSpr, gTheMseLine, gTheMseWord, gTickSND, gTopicBase, gTopicLocList, gTopIsPaused, gTrekCursor, gTTSactive, gTxtScrSprsBeg, gUpdateAttribFld, gUpdateBase, gWinTypeList, oChartSlider, oCHROTextSlider, oCreditSlider, oHelpRoll, oHelpTextSlider, oIndexMediator, oIndexScroller, oIndexSlider, oINTERfaceFind, oINTERfaceModes, oPWin, oTextScroller, oTextSlider, oTopicSlider, oWinKey, oTopicControl, gInputField, gSavedMouseUpScript, gVoiceHandler, oVidCD, oImport, oFile, gDirectOrFolderK, oPrintMe, gFirstSpeechF

on hLetsStart
  global gCurrentlyPlayingMovie, gVideoPath
  set gCurrentlyPlayingMovie to " "
  put RETURN & "••Play begins..."
  go("OPEN")
  go("OpHere")
  puppetSound("oneHiBeep")
  repeat with i = label("OpHere") to label("OpB")
    go(i)
    updateStage()
    set x to the timer
    repeat while the timer < (x + 1)
    end repeat
  end repeat
  puppetSound("double Beep")
  go("OpB")
  hPrepCursor()
  hInitSNDnames()
  hearit(gPrepareSND)
  updateStage()
  set x to the timer
  repeat while the timer < (x + 1)
  end repeat
  go("Opc1")
  set gStatusField to the number of cast "Status"
  hReportStatus("Preparing...")
  updateStage()
  set x to the timer
  repeat while the timer < (x + 1)
  end repeat
  go("OpC2")
  updateStage()
  set x to the timer
  repeat while the timer < (x + 1)
  end repeat
  set gVideoPath to gAssetPath
  set the fileName of cast "SS_LOGO.MOV" to gVideoPath & "S" & gPDL & "SS_LOGO.MOV"
  set gNewSetIsHereF to 0
  hInitConstants()
  if gComputerTypeK = #WIN then
    hSetWindowsColor()
  else
    hSetMacColor()
  end if
  set oVidCD to birth(script "Multi-CD Video Fetching")
  hTestforCDin()
  hPrepareAll()
end

on hPrepCursor
  set gTrekCursor to the number of cast "trekcursFG"
end

on hPrepareAll
  set gdescfield to the number of cast "F1"
  hInitThumbholders()
  hInitMode()
  set gHotLinkList to [:]
  set the itemDelimiter to RETURN
  set gFirstSpeechF to 1
  hAnnounce("Now establishing datalink")
  put "Initializing indexes..." into field "status"
  hInitMainIndex()
  set oIndexSlider to birth(script "SliderManagerTall", 1, 4070, "mStartIndexToLine(oIndexScroller,mShowVal(oIndexSlider))", 30, 63, 67, 27, 63, 121, 1, 0)
  set oTextSlider to birth(script "SliderManagerTall", 0, 1, "mScrollBarTextScroll(oTextScroller,mShowVal(oTextSlider))", 34, 213, 212, 31, 208, 378, 0, 0)
  set Lchromax to mGetAnyMaxEntryNum(oIndexMediator, #CHRO)
  set oHelpTextSlider to birth(script "SliderManagerTall", 0, 1, "mScrollBarTextScroll(oTextScroller,mShowVal(oHelpTextSlider))", 34, 208, 212, 31, 208, 383, 0, 0)
  set oCreditSlider to birth(script "SliderManagerTall", 0, 1, "mScrollBarCreditScroll(oTextScroller,mShowVal(oCreditSlider))", 8, 44, 48, 5, 44, 220, 0, 0)
  set oChartSlider to birth(script "SliderManagerTall", 0, 1, "mScrollBarChartScroll(oTextScroller,mShowVal(oChartSlider))", 8, 44, 48, 5, 44, 220, 0, 0)
  set oHelpRoll to birth(script "HelpRoll Parent", HelpRects())
  set oFile to birth(script "fileparent")
  set gImInHelp to 0
  set oPWin to birth(script "pWinScripts")
  go("OpD2")
  updateStage()
  set x to the timer
  repeat while the timer < (x + 20)
  end repeat
  hPrepStyles(gdescfield)
  set the textFont of field "status" to gOurFontK
  put "O.K." into field "status"
  hInitInputParams()
  set the textFont of field gInputField to gOurFontK
  hAnnounce("Welcome to fed...databank")
  go("OpE")
  set glinktostagemsg to EMPTY
  set gStageToLinkMsg to EMPTY
  set gTopicLocList to [:]
  set oWinKey to birth(script "WinkeyParent")
  set gVoiceHandler to EMPTY
  repeat with i = label("interfaceBuild") to label("interfaceBuildEnd")
    go(i)
    updateStage()
  end repeat
  go(label("ENCY") - 1)
  hPrepMainInterface()
end

on hTestforCDin
  set vTest to mAnyOMNICDIsMounted(oVidCD)
  if vTest = 1 then
    return 1
  else
    if vTest = -1 then
      alert("Sorry, this updated version of the Omnipedia will not run with the original Omnipedia CD. Please mount your revised copy of the Omnipedia or an Episode Guide CD before launching the program.")
      stopThismovie()
      quit()
    else
      if hFileIsHere(the pathName & "OMNIonCD.PRF") = 0 then
        alert("Please mount one of your Omnipedia CD's before launching the program.")
        stopThismovie()
        quit()
      end if
    end if
  end if
end

on hInitConstants
  if voidp(gComputerTypeK) then
    if the machineType = 256 then
      set gComputerTypeK to #WIN
    else
      set gComputerTypeK to #mac
    end if
  end if
  if gComputerTypeK = #WIN then
    set gDirectOrFolderK to "directory"
  else
    set gDirectOrFolderK to "folder"
  end if
  if gComputerTypeK = #WIN then
    set gPDL to "\"
  else
    set gPDL to ":"
  end if
  set the exitLock to 1
  hInitCurlyQ()
  set gMemoryAlertFlag to 1
  if gComputerTypeK = #WIN then
    set gOurFontK to "TREKOMNI"
  else
    set gOurFontK to "TREKFAM"
  end if
  set gUpdateAttribFld to 510
  if not (the name of cast gUpdateAttribFld starts "UPDATE") then
    hputmsg("!!The UPDATE text field does not appear where it was expected. Updates may not work.")
    beep(2)
  end if
  set gFirstYearK to 18
  set gLastYearK to 24
  set gEpisFTchunksizeK to 10
  hSetStylingNeed(0)
  hSetStylePermit(1)
  set gModeNameLU to [#ENCY: "Encyclopedia", #FoundSet: "Search Results"]
  hPrepBreakList()
  hPrepHyperExceptions()
  set the visible of sprite 22 to 1
end

on hPrepMainInterface
  hSetGlobalCounter(1)
  hSetLocalCounter(1)
  set the itemDelimiter to "@"
  put "Preparing interface parameters..." into field "Status"
  hAnnounce("EngSignalBeep")
  hInitSpritesNbuttons()
  set the mouseDownScript to "hMouseEventSupervisor"
  set gSavedMouseUpScript to the mouseUpScript
  startTimer()
  put "Preparing media lists..." into field "Status"
  hAnnounce("OneHiBeep")
  mInitScrollStuff(oTextScroller)
  hSetupThumbs()
  hInitMinaWLists()
  mCheckHeader(oINTERfaceFind)
  if not objectp(oASRObj) then
    hShowSpeechStatus(#null)
  else
    hShowSpeechStatus(#INACTIVE)
  end if
  hInitTracker()
  cursor([gTrekCursor, gTrekCursor + 1])
  if gNewSetIsHereF then
    hAnnounce("To Found Entries Mode")
  end if
  set gModeState to EMPTY
  hSetMode(#ENCY)
  hLIneUp()
  hMatchEntryToIndexLine(1)
  put "Ready." into field "Status"
  hAnnounce("Ready 1")
end

on hShowTheUpdate pNum
  hSwitchFTsearchscope(#ALL)
  if pNum = 2 then
    set lit to value(field gUpdateAttribFld)
    if not objectp(lit) then
      hearit(gNopeSND)
      hReportStatus("This copy of the Omnipedia has not yet been updated.")
      abort()
    else
      hReportStatus("Displaying newly updated entries.")
    end if
  else
    if pNum = 3 then
      set lit to value(field "video_entries")
    end if
  end if
  mSetCustomList(oIndexScroller, lit, 1, pNum)
  set kall to mGetThisEntryName(oIndexMediator, #FoundSet, 1, gGlobalStepCount)
  hSetIndex(hFilterSearchChars(kall), kall)
  hProcess(kall)
  if pNum = 2 then
    hReportStatus("These are the entries added during the most recent update.")
  end if
end

on hShowTheFoundHits pNum, pType
  if pType = 1 then
    mSetCustomList(oIndexScroller, gStashedHitsList, pNum, 1)
  else
    if pType = 0 then
      mSetCustomList(oIndexScroller, gStashedSEEList, pNum, 0)
    else
    end if
  end if
  set kall to mSetOneFTfromLU(oSLlookup, pNum)
  hSetIndex(hFilterSearchChars(kall), kall)
  hProcess(kall)
end

on hInitMainIndex
  hSetAlphaState("A")
  hSetGlobalCounter(1)
  hSetLocalCounter(1)
  hCreateIndexObjs()
  hSwitchFTsearchscope(1)
end

on stopThismovie
  hClearExtListSaver()
  hInitMinaWLists()
  set the fileName of cast "BlankM.dir" to the pathName & "BL" & gPDL & "BlankM.dir"
  if gComputerTypeK = #WIN then
    hSetColorBack()
  else
    hCloseMacColor()
  end if
  closeXLib()
  hputmsg("Stopping...")
end

on hPollLinked
  if glinktostagemsg <> EMPTY then
    do(glinktostagemsg)
    set glinktostagemsg to EMPTY
  end if
end

on hCycle
  hDetectKeyRoll(the mouseWord, gdescfield)
  hSetStylePermit(1)
  if gStylingNeedF then
    hStyleMe()
  end if
  cursor([gTrekCursor, gTrekCursor + 1])
  go(the frame)
end

on hCycleRes
  hPollLinked()
  hSetStylePermit(1)
  if gStylingNeedF then
    hStyleMe()
  end if
  hMemoryMonitor()
  cursor([gTrekCursor, gTrekCursor + 1])
  go(label("Resources"))
end

on hMemoryMonitor
  if the freeBytes < 500000 then
    if gMemoryAlertFlag then
      set gMemoryAlertFlag to 0
      unLoadCast()
    end if
  end if
end

on hMouseEventSupervisor
  global gEditKeys
  hSysAlert(#null)
  hSetStylePermit(0)
  set gTheMseLine to the mouseLine
  set gTheMseWord to the mouseWord
  if gEditKeys then
    if gTheMseWord > 0 then
      if not hCheckForEditMode(gTheMseWord) then
        pass()
      else
        dontPassEvent()
      end if
    end if
  else
    pass()
  end if
end

on hResourceMouseEventSupervisor
  hSysAlert(#null)
  hSetStylePermit(0)
  set gTheMseLine to the mouseLine
  set gTheMseWord to the mouseWord
  pass()
end

on hKeyEventSupervisor
  hSetStylePermit(0)
end

on hInitSpritesNbuttons
  set gdescfieldspr to 5
  set gSearchPopOut to 7
  set gNextBase to 9
  set gFindBase to 10
  set gModeBase to 11
  set gUpdateBase to 39
  set gHeaderHere to 12
  set gModeHighltSprite to 13
  set gPullDownSearch to 14
  set gPullDownModes to 22
  set gSearchButton to 16
  set gEncSprite to 17
  set gEntrySprite to 18
  set gInputFieldSpr to 19
  set gTopicBase to 20
  set gHoldEncPixelSprite to 23
  set gHoldEntPixelSprite to 21
  set gFlashPixel to 24
  set gSpeeButtSpr to 25
  set gTxtScrSprsBeg to 31
  set gAlphBase to 39
  set gSysStatusWordSpr to 37
  set gStretchSpr1 to 39
  set gStretchSpr2 to 40
  set gEpisBase to 39
  set gHltPixel to 47
  hInterFace()
  hInitSysAlertWords()
  hInitSpeeButts()
end

on hSetWindowsColor
  openXLib("color.dll")
  set gColorXobj to Color(mnew)
  set gPrevActiveColor to gColorXobj(mGetSysColor, 2)
  set gPrevInactiveColor to gColorXobj(mGetSysColor, 3)
  put gColorXobj(mSetSysColorRGB, 2, 0, 0, 0)
  put gColorXobj(mSetSysColorRGB, 3, 0, 0, 0)
  put gColorXobj(mdispose)
  closeXLib("color.dll")
end

on hSetColorBack
  openXLib("color.dll")
  set gColorXobj to Color(mnew)
  put gColorXobj(mSetSysColor, 2, gPrevActiveColor)
  put gColorXobj(mSetSysColor, 3, gPrevInactiveColor)
  put gColorXobj(mdispose)
  closeXLib("color.dll")
end

on hSetMacColor
  if gComputerTypeK = #mac then
    if hFileIsHere(the pathName & "omnicolor.xcmd") and hFileIsHere(the pathName & "OmniWinRes") then
      openXLib("OmniColor.xcmd")
      openResFile("OmniWinRes")
      set gMacColorIsHere to 1
    end if
  else
    set gMacColorIsHere to 0
  end if
end

on hCloseMacColor
  if gComputerTypeK = #mac then
    if gMacColorIsHere then
      closeXLib("OmniColor.xcmd")
      closeResFile("OmniWinRes")
    end if
  end if
end

on tong
  global gStylingNeedF, gkeylist, gdescfield
  set exceptList to the text of cast "Hyperlink Exceptions"
  set exceptList to value(exceptList)
  sort(exceptList)
  repeat with i = 1 to 26
    set attrib to "ATTRIB_" & numToChar(65 + i - 1) & "_ENCY"
    set vCurrentList to the text of cast attrib
    set vCurrentList to value(vCurrentList)
    sort(vCurrentList)
    repeat with j = 1 to count(vCurrentList)
      put "ATTRIB: " & numToChar(65 + i - 1) & " ENTRY " & j
      put getPropAt(vCurrentList, j) into field "searchtextcandidate"
      set entryname to the text of field "searchtextcandidate"
      hFindThisEntry()
      hSetStylePermit(1)
      if gStylingNeedF then
        hStyleMe()
      end if
      set keylistCount to count(gkeylist)
      repeat with k = 1 to keylistCount
        set W1 to getPropAt(gkeylist, k)
        set firstReturn to offset(RETURN, field gdescfield)
        set numWordsInTitle to the number of words in char 1 to firstReturn of field gdescfield
        if (W1 > 1) and (W1 <= the number of words in field gdescfield) and (W1 > numWordsInTitle) then
          set wordinfo to getAt(gkeylist, k)
          set numwords to getAt(wordinfo, 1)
          set wordstyle to getAt(wordinfo, 2)
          set word1start to word 1 to W1 + numwords - 1 of field gdescfield
          if (wordstyle = #b) or (wordstyle = #bi) then
            set trunk to hcleanup(word W1 to W1 + numwords - 1 of field gdescfield)
            set found to findPos(exceptList, trunk)
            if found then
              set trunk to getAt(exceptList, found)
            else
              if trunk = "DeSoto" then
                set trunk to "DeSoto, Captain Robert"
              end if
            end if
            set trunk to curly(trunk)
            set firstChar to char 1 of trunk
            set firstAscii to charToNum(firstChar)
            if ((firstAscii >= 65) and (firstAscii <= 90)) or ((firstAscii >= 97) and (firstAscii <= 122)) then
              set destAttrib to "ATTRIB_" & firstChar & "_ENCY"
              set vDestList to the text of cast destAttrib
              set vDestList to value(vDestList)
              sort(vDestList)
              if findPos(vDestList, trunk) or findPos(vDestList, trunk & " ") then
                put trunk & " is found"
              else
                set newtrunk to hTryHarder(trunk)
                set firstChar to char 1 of newtrunk
                set firstAscii to charToNum(firstChar)
                if ((firstAscii >= 65) and (firstAscii <= 90)) or ((firstAscii >= 97) and (firstAscii <= 122)) then
                  set destAttrib to "ATTRIB_" & firstChar & "_ENCY"
                  set vDestList to the text of cast destAttrib
                  set vDestList to value(vDestList)
                  sort(vDestList)
                  if findPos(vDestList, newtrunk) or findPos(vDestList, newtrunk & " ") then
                    put trunk & " => " & newtrunk & " is found"
                  else
                    set newtrunk to hTryCap(trunk)
                    set firstChar to char 1 of newtrunk
                    set firstAscii to charToNum(firstChar)
                    if ((firstAscii >= 65) and (firstAscii <= 90)) or ((firstAscii >= 97) and (firstAscii <= 122)) then
                      set destAttrib to "ATTRIB_" & firstChar & "_ENCY"
                      set vDestList to the text of cast destAttrib
                      set vDestList to value(vDestList)
                      sort(vDestList)
                      if findPos(vDestList, newtrunk) or findPos(vDestList, newtrunk & " ") then
                        put trunk & " => " & newtrunk & " is found"
                      else
                        set newtrunk to hIsADoctor(trunk)
                        set firstChar to char 1 of newtrunk
                        set firstAscii to charToNum(firstChar)
                        if ((firstAscii >= 65) and (firstAscii <= 90)) or ((firstAscii >= 97) and (firstAscii <= 122)) then
                          set destAttrib to "ATTRIB_" & firstChar & "_ENCY"
                          set vDestList to the text of cast destAttrib
                          set vDestList to value(vDestList)
                          sort(vDestList)
                          if findPos(vDestList, newtrunk) or findPos(vDestList, newtrunk & " ") then
                            put trunk & " => " & newtrunk & " is found"
                          else
                            set newtrunk to hLastNameFirst(trunk)
                            set firstChar to char 1 of newtrunk
                            set firstAscii to charToNum(firstChar)
                            if ((firstAscii >= 65) and (firstAscii <= 90)) or ((firstAscii >= 97) and (firstAscii <= 122)) then
                              set destAttrib to "ATTRIB_" & firstChar & "_ENCY"
                              set vDestList to the text of cast destAttrib
                              set vDestList to value(vDestList)
                              sort(vDestList)
                              if findPos(vDestList, newtrunk) or findPos(vDestList, newtrunk & " ") then
                                put trunk & " => " & newtrunk & " is found"
                              else
                                set newtrunk to williamRiker(trunk)
                                set firstChar to char 1 of newtrunk
                                set firstAscii to charToNum(firstChar)
                                if ((firstAscii >= 65) and (firstAscii <= 90)) or ((firstAscii >= 97) and (firstAscii <= 122)) then
                                  set destAttrib to "ATTRIB_" & firstChar & "_ENCY"
                                  set vDestList to the text of cast destAttrib
                                  set vDestList to value(vDestList)
                                  sort(vDestList)
                                  if findPos(vDestList, newtrunk) or findPos(vDestList, newtrunk & " ") then
                                    put trunk & " => " & newtrunk & " is found"
                                  else
                                    put trunk & " is not found anywhere"
                                    repeat with L = 1 to numwords
                                      removeLink(W1 + L - 1)
                                      hReviseEntry()
                                    end repeat
                                  end if
                                else
                                  put trunk & " not found"
                                  repeat with L = 1 to numwords
                                    removeLink(W1 + L - 1)
                                    hReviseEntry()
                                  end repeat
                                end if
                              end if
                            else
                              put trunk & " not found"
                              repeat with L = 1 to numwords
                                removeLink(W1 + L - 1)
                                hReviseEntry()
                              end repeat
                            end if
                          end if
                        else
                          put trunk & " not found"
                          repeat with L = 1 to numwords
                            removeLink(W1 + L - 1)
                            hReviseEntry()
                          end repeat
                        end if
                      end if
                    else
                      put trunk & " not found"
                      repeat with L = 1 to numwords
                        removeLink(W1 + L - 1)
                        hReviseEntry()
                      end repeat
                    end if
                  end if
                else
                  put trunk & " not found"
                  repeat with L = 1 to numwords
                    removeLink(W1 + L - 1)
                    hReviseEntry()
                  end repeat
                end if
              end if
              next repeat
            end if
            put trunk & "not found"
            repeat with L = 1 to numwords
              removeLink(W1 + L - 1)
              hReviseEntry()
            end repeat
          end if
        end if
      end repeat
    end repeat
  end repeat
end

on williamRiker pEntry
  if (pEntry = "Riker, William") or (pEntry = "William Riker") or (pEntry = "Riker, William T") then
    return "Riker, William T."
  else
    return pEntry
  end if
end

on removeLink aWordNum
  heditwordstyle(aWordNum, #b)
  put "...hCheckForEditMode CMD at word" && aWordNum
end

on curly pEntry
  set curlyOffset to offset(numToChar(213), pEntry)
  set numOfChars to the number of chars in pEntry
  if curlyOffset > 0 then
    return char 1 to curlyOffset - 1 of pEntry & "'" & char curlyOffset + 1 to numOfChars of pEntry
  else
    return pEntry
  end if
end